home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Informed Designer / Informed Extensions / EPS / EPS.rsrc / Post_128 < prev    next >
Text File  |  1992-07-10  |  4KB  |  105 lines
  1. %%DocumentProcSets: Informed_Header
  2. %%DocumentFonts: (atend)
  3. %%EndComments
  4. %%BeginProcSet: Informed_Header
  5. /InfmEPSFDict 50 dict def
  6. InfmEPSFDict begin
  7. /BNDF {bind def} bind def
  8. /M {moveto} BNDF
  9. /L {lineto} BNDF
  10. /CP {closepath} BNDF
  11. /NP {newpath} BNDF
  12. /SK {stroke} BNDF
  13. /LS {lineto stroke} BNDF
  14. /W {setlinewidth} BNDF
  15. /PS 1.0 def
  16. /SS {scalefont setfont} BNDF
  17. /SM {3 eq{1}{0} ifelse setgray} BNDF
  18. /SF {neg scale} BNDF
  19. /UL {dup stringwidth /@wy exch def /@wx exch def currentlinewidth currentpoint 0.5 setlinewidth currentpoint NP 1.5 sub M currentpoint @wy add exch @wx add exch LS M setlinewidth } BNDF
  20. /scratchdict 16 dict def
  21. /DFB
  22. {
  23. exch
  24. 7 dict begin
  25. /basefont exch def
  26. /FontType 3 def
  27. /FontMatrix[1 0 0 1 0 0]def
  28. /FontBBox[0 0 1 1]def
  29. /Encoding MacEncode def
  30. /BuildChar
  31. {
  32. exch begin
  33. scratchdict begin
  34. /dxd .03 def
  35. basefont setfont
  36. ( )dup 0 4 -1 roll put
  37. dup gsave 0 0 0 0 RC clip stringwidth grestore
  38. 1 index 0 ne
  39. {
  40. exch dxd add exch
  41. }if
  42. setcharwidth
  43. dup 0 0 moveto show
  44. dup dxd 0 moveto show
  45. dup dxd dxd moveto show
  46. 0 dxd moveto show
  47. end
  48. end
  49. }def
  50. currentdict
  51. end
  52. definefont
  53. }BNDF
  54. /DFOL {/PaintType 2 def /StrokeWidth 0.5 def} BNDF
  55. /MF {findfont dup length 1 add dict begin {1 index /FID ne{def}{pop pop} ifelse} forall} BNDF
  56. /EF {{/Encoding MacEncode def}{counttomark 1 roll Encoding dup length array copy/Encoding exch def counttomark 2 idiv{Encoding 3 1 roll put}repeat} ifelse} BNDF
  57. /DFF {currentdict end definefont} BNDF
  58. /DF {3 -1 roll exch MF EF DFF} BNDF
  59. /FF {findfont} BNDF
  60. /OLF {dup MF DFOL DFF} BNDF
  61. /SDF {findfont} BNDF
  62. /FillPat [0 0 0 0 0 0 0 0] def
  63. /PenPat [0 0 0 0 0 0 0 0] def
  64. /RC {newpath 2 index 4 index moveto dup 4 index lineto 1 index lineto 1 index exch lineto exch lineto closepath} def
  65. /RR {/@bl exch 2 div def /@br exch 2 div def /@tr exch 2 div def /@tl exch 2 div def /@r exch def /@b exch def /@l exch def /@t exch def
  66. newpath @l @tl add @t moveto @r @t @r @b @tr arcto 4 {pop} repeat
  67. @r @b @l @b @br arcto 4 {pop} repeat
  68. @l @b @l @t @bl arcto 4 {pop} repeat
  69. @l @t @r @t @tl arcto 4 {pop} repeat closepath} BNDF
  70. /AR {/@e exch def /@s exch def /@r exch def /@b exch def /@l exch def /@t exch def
  71. @l @r add 2 div @t @b add 2 div translate /@w @r @l sub def @w /@h @b @t sub def @h ge {/@rad @w 2 div def 1 @h @w div neg scale}{/@rad @h 2 div def @w @h div -1 scale}ifelse
  72. 0 0 @rad @s @e arc
  73. } BNDF
  74. /IP {save /row 0 def clip pathbbox 3 -1 roll 128 div floor 128 mul dup /y exch def
  75. sub abs 128 div ceiling 128 mul 16 div cvi /h exch def exch 128 div floor 128 mul dup /x exch def
  76. sub abs 128 div ceiling 128 mul 16 div cvi dup /w exch def /rb exch 8 div cvi def currentgray 1 setgray fill setgray x y translate 16 w mul 16 h mul scale
  77. /sa0 rb string def w h true [w 0 0 h neg 0 h]
  78. {FillPat row 8 mod get /sa1 exch def 0 1 sa0 length 1 sub dup 0 le{pop 1}if
  79. {sa0 exch sa1 put}bind for /row row 1 add def sa0}bind imagemask restore} BNDF
  80. /RF {FontDirectory 2 index known{cleartomark}
  81. {DF cleartomark}ifelse} BNDF
  82. /MacEncode 256 array def
  83. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  84. MacEncode 0 32 getinterval astore pop
  85. MacEncode 32/Helvetica findfont/Encoding get
  86. 32 96 getinterval putinterval MacEncode dup 39 /quotesingle put 96 /grave put
  87. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  88. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  89. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  90. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  91. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  92. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  93. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  94. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  95. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  96. /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
  97. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  98. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  99. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute
  100. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  101. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  102. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  103. MacEncode 128 128 getinterval astore pop
  104. %%EndProcSet
  105.